COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	C**** READS TRS.DAT ***** WRITES FOR20.DAT *****
C00004 ENDMK
C⊗;
C**** READS TRS.DAT ***** WRITES FOR20.DAT *****
	DIMENSION I(3),KK(512)
	EQUIVALENCE (I1,I),(I2,I(2)),(I3,I(3))
	DATA N/524288/,JJ/"400001000000/
CC	DATA N/262144/
100	FORMAT(' TYPE INPUT NAME  '$)
200	FORMAT(A5)
300	FORMAT(' DOV.DMD WAS WRITTEN')
	TYPE 100
	ACCEPT 200,NAM
	CALL IFILE(1,NAM)
	CALL PUTFIL('DOV')
1	FORMAT(3I)
6	FORMAT(1X,I)
	READ(1,1,END=3)I
	NN=1
	KK(1)=0
CC	WRITE(20)K
	J=I2
2	READ(1,1,END=3)I
	K=I1*N
CC	K=I1*2*N
	L=I2+J
4	L=L*2
CCC4	L=L*6
	M=1
	IF(I3.EQ.3)M=0
5	K=K+L+M
CCC	WRITE(20)K
	NN=NN+1
	KK(NN)=K
	IF(NN.NE.512)GO TO 2
	CALL FASTOU(KK,512)
	NN=0
CC	TYPE 6,K
	GOTO2
3	K=JJ
	NN=NN+1
	KK(NN)=K

	CALL FASTOU(KK,NN)
	TYPE 300
	CALL EXIT

CC	WRITE(20)K
	IF(NN.EQ.0)CALL EXIT
	NN=NN+1
	IF(NN.GT.512)GO TO 22
	DO 7 L=NN,512
7	KK(L)=0   
22	CALL FASTOU(KK,512)
	END